SuperHack/SuperHack CD.bin/SCRIPTZ/16VAMP79.ZIP/CLONES/WALIASES.INI

INI File | 1997-02-10 | 17KB | 278 lines

[Aliases]
n0=/f2 /status
n1=/f3 /cs
n2=/f4 /toggles
n3=/f5 ftoggles
n4=/f6 /ignore *!*@* | /echo 6 *** Everyone is being ignored. Hit F7 to undo. | /set %ignoreall ON
n5=/f7 /ignore -r *!*@* | /set %ignoreall OFF
n6=/DIE /exit
n7=/newpath /set %path $1
n8=/j /join #$$1
n9=/l /part #$$1
n10=/wi /whois $$1
n11=/ww /whowas $$1
n12=/n names #$$1
n13=/t /topic # $$*
n14=/i /invite # $$1
n15=/n /nick $$1
n16=/deop /mode # -o $1
n17=/op /mode # +o $1
n18=/b /ban $1 3
n19=/k /kick # $1
n20=/unban /mode # -b $1
n21=/bankick /ban $1 3 | /kick # $1
n22=/bkick /ban $1 3 | /kick # $1
n23=/addgod /guser 100 $1 3 | set %pnick $1 | addpass
n24=/addmaster /guser 75 $1 3 | set %pnick $1 | addpass
n25=/addop /guser 50 $1 3 | set %pnick $1 | addpass
n26=/addvoice /guser 40 $1 3
n27=/addparty /guser 25 $1 3 | set %pnick $1 | addpass
n28=/remuser /ruser $1 3
n29=/addshit /guser 999 $1 3
n30=/addeop /guser 888 $1 3
n31=/cs /echo 6 [Vampear] # Channel Stats | /echo 1 Users: $nick(0,#) - OPs: $opnick(0,#) - Voiced: $vnick(0,#) - Nonops: $nopnick(0,#) | /echo 6 End Of [Vampear] # Channel stats
n32=/status if ( $away = $true ) set %away yes | else set %away no | /echo 6 [Vampear] Status report | /echo 1 ** Nick: $me | /echo 1 ** Ip: $ip | /echo 1 ** Host: $host | /echo 1 ** Server: $server | /echo 1 ** Channels: $dde mirc channels "" | /echo 1 ** Away: %away | /echo 1 ** I have been online for  $+ %hours $+   hour(s) and   $+ %minutes $+   minute(s) | /echo 1 ** The time is: $fulldate | /echo 6 End Of [Vampear] Status report
n33=/toggles /echo 6 [Vampear] Toggles report | /echo 1 Server Modes: %servermodes | /echo 1 Bitch Mode: %bitch | /echo 1 Friends Protection: %fprot | /echo 1 AutoOp Friends: %autoop | /echo 1 Kick On Ban: %kob | /echo 1 Seen: %seen | /echo 1 AutoGreeT: %greet | /echo 1 Info Line: %info | /echo 1 8ball: %8ball |  /echo 1 Graffiti Wall: %wall | /echo 1 No Mode, Topic, Op: %prot | /echo 1 Color Kick: %color  | /echo 1 Swear Kick: %swear  | /echo 6 End Of [Vampear] Toggles report
n34=/ftoggles /echo 6 [Vampear] Flood Protection report | /echo 1 MassJoin Protection: %massjoin | /echo 1 Nick Flood Protection: %nickf | /echo 1 Invite Flood Protection: %invitef | /echo 1 Text Flood Protection: %textf | /echo 1 Private MSG Protection: %msgflood | /echo 1 Ignore Everyone: %ignoreall | /echo 6 End Of [Vampear] Flood Protection report
n35=/kob {
n36=  set %cont 1
n37=  set %chancont $nick(0,%chanban)
n38=  :start
n39=  if ( %cont <= %chancont ) {
n40=    set %nickcont $nick(%cont,%chanban)
n41=    set %kobaddr $address(%nickcont,5)
n42=    if ([ %kobmask ] iswm [ %kobaddr ] && %nickcont != $me ) {
n43=      kick %chanban %nickcont [Vampear] Banned!
n44=    }
n45=    inc %cont
n46=    goto start
n47=  }
n48=  unset %chanban %nickcont %cont %chancont %kobaddr %kobmask
n49=}
n50=/checkpass {
n51=  if ($level($address($nick,1)) >= 888 ) { notice $nick Please leave me alone. I can't help you....you're shitlisted !! | ignore -tnpu30 $nick 2 | halt }
n52=  set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5))
n53=  set %cpass $readini %path $+ clones\wpass.ini %tnick password
n54=  if ( $parm2 = $null || $parm2 = none || $parm2 !== %cpass ) { notice $nick [Vampear] Access Denied | set %success failed }
n55=  else { set %success success }
n56=  unset %cpass %tnick
n57=}
n58=/pass {
n59=  set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5))
n60=  if (%tnick == $null ) { notice $nick [Vampear] Access Denied | halt }
n61=  set %cpass $readini %path $+ clones\wpass.ini %tnick password
n62=  if (%cpass !== $null && %cpass !== none ) { notice $nick [Vampear] You already have a password set. | halt }
n63=  notice $nick [Vampear] Password set to $parm2 | writeini %path $+ clones\wpass.ini %tnick password $parm2
n64=  unset %cpass %tnick
n65=}
n66=/newpass {
n67=  set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5))
n68=  set %cpass $readini %path $+ clones\wpass.ini %tnick password
n69=  if (%cpass == $null || %cpass == none ) { notice $nick [Vampear] Access Denied | halt }
n70=  if ( $parm2 != %cpass || $parm3 = $null ) { notice $nick [Vampear] Access Denied }
n71=  else { notice $nick [Vampear] Password changed to $parm3 | writeini %path $+ clones\wpass.ini %tnick password $parm3
n72=    unset %cpass %tnick
n73=  }
n74=}
n75=/ident {
n76=  set %cpass $readini %path $+ clones\wpass.ini $nick password
n77=  if (%cpass == $null || %cpass == none ) { notice $nick [Vampear] You have no password set. | halt }
n78=  if ($parm2 == $null) { notice $nick [Vampear] Access Denied | halt }
n79=  if ($parm2 != %cpass) { notice $nick [Vampear] Access Denied | halt }
n80=  set %cadd $address($nick,3)
n81=  if ( %cadd iswm $readini %path $+ clones\wpass.ini $nick hostmask ) { notice $nick I recognize you there. | halt }
n82=  else {
n83=    writeini %path $+ clones\wpass.ini $nick hostmask %cadd
n84=    notice $nick Added hostmask: %cadd
n85=    writeini %path $+ clones\wpass.ini Users %cadd $nick
n86=  }
n87=  unset %cpass %cadd
n88=}
n89=/info {
n90=  set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5))
n91=  writeini %path $+ clones\wpass.ini %tnick info $parm3*
n92=  if ( $parm3* == none ) { notice $nick Removed your info line. }
n93=  else { notice $nick Now: $parm3* }
n94=  unset %tnick
n95=}
n96=/email {
n97=  set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5))
n98=  writeini %path $+ clones\wpass.ini %tnick email $parm3*
n99=  if ( $parm3* == none ) { notice $nick Removed your email address. }
n100=  else { notice $nick Now: $parm3* }
n101=  unset %tnick
n102=}
n103=/pinfo {
n104=  writeini %path $+ clones\wpass.ini $nick info $parm2*
n105=  if ( $parm2* == none ) { msg =$nick Removed your info line. }
n106=  else { msg = $+ $nick Your info is now: $parm2* }
n107=}
n108=/pemail {
n109=  writeini %path $+ clones\wpass.ini $nick email $parm2*
n110=  if ( $parm2* == none ) { msg =$nick Removed your email address. }
n111=  else { msg = $+ $nick Your email address: $parm2* }
n112=}
n113=/pnewpass {
n114=  set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5))
n115=  writeini %path $+ clones\wpass.ini %tnick password $parm2
n116=  if ( $parm2 == none ) { msg =$nick Removed your password. }
n117=  else {  msg = $+ $nick Changed password to ' $+ $parm2 $+ ' }
n118=}
n119=/addpass {
n120=  writeini %path $+ clones\wpass.ini %pnick hostmask $address(%pnick,3)
n121=  writeini %path $+ clones\wpass.ini %pnick flag %flag
n122=  writeini %path $+ clones\wpass.ini %pnick echo on
n123=  writeini %path $+ clones\wpass.ini Users $address(%pnick,3) %pnick
n124=  if ( %flag = b || %flag = v || %flag = d || %flag = s ) { halt }
n125=  notice %pnick You have been added to my User List. Please set a password, type /ctcp $me pass <password>. Type /ctcp $me HELP for more options. [Vampear]
n126=  .timer 1 3 unset %pnick %flag
n127=}
n128=/seen {
n129=  set %seen $read -s $+ $parm2 %path $+ \clones\seen.txt
n130=  if ( $parm2 == $nick ) { notice $nick Trying to find yourself, eh? | halt }
n131=  if ( $parm2 == $me ) { notice $nick Yeah, whenever I look in a mirror... | halt }
n132=  if ([ $parm2 ] ison [ $chan ]) { notice $nick $parm2 is on $chan right now! | halt }
n133=  if ( %seen !== $null) { notice $nick %seen }
n134=}
n135=/nread {
n136=  if ($level($address($nick,1)) >= 888 ) { notice $nick Please leave me alone. I can't help you....you're shitlisted !! | ignore -tnpu30 $nick 2 | halt }
n137=  set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5))
n138=  set %cpass $readini %path $+ clones\wpass.ini %tnick password
n139=  if ( $parm3 = $null || $parm3 !== %cpass ) { notice $nick [Vampear] Access Denied }
n140=  else { set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5)) | play $nick $mircdir $+ notes\ $+ %tnick $+ .txt }
n141=  unset %cpass %tnick
n142=}
n143=/nerase {
n144=  if ($level($address($nick,1)) >= 888 ) { notice $nick Please leave me alone. I can't help you....you're shitlisted !! | ignore -tnpu30 $nick 2 | halt }
n145=  set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5))
n146=  set %cpass $readini %path $+ clones\wpass.ini %tnick password
n147=  if ( $parm3 = $null || $parm3 !== %cpass ) { notice $nick [Vampear] Access Denied }
n148=  else { set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5)) | write -c $mircdir $+ notes\ $+ %tnick $+ .txt | notice $nick Erased all notes. }
n149=  unset %cpass %tnick
n150=}
n151=/note { write $mircdir $+ notes\ $+ $parm3 $+ .txt $nick ( $+ $fulldate $+ ): $parm4* | notice $nick Stored message. }
n152=/channel {
n153=  set %j 0
n154=  if ( $me ison $parm2 ) { msg =$nick NICKNAMEááááááUSER@HOST | msg =$nick ------------------------------ }
n155=  else { msg =$nick Not active on channel $parm2 | halt }
n156=  :start
n157=  inc %j
n158=  if ($nick(%j,$parm2) == $null) {   msg =$nick End of channel info. | halt }
n159=  if (($nick(%j,$parm2) isop $parm2) && ($nick(%j,$parm2) == $me)) { msg =$nick @ $+ $nick(%j,$parm2) áá <- it's me! | goto start }
n160=  if ($nick(%j,$parm2) == $me) { msg =$nick $nick(%j,$parm2) áá <- it's me! | goto start }
n161=  if $nick(%j,$parm2) isop $parm2 { msg =$nick @ $+ $nick(%j,$parm2) áá $remove($address($nick(%j,$parm2),1),$left(3,$address($nick(%j,$parm2),2))) | goto start } | msg =$nick $nick(%j,$parm2) áá $remove($address($nick(%j,$parm2),1),$left(3,$address($nick(%j,$parm2),2)))
n162=  goto start
n163=}
n164=/whois {
n165=  set %khostmask $readini %path $+ clones\wpass.ini $parm2 hostmask
n166=  if ( %khostmask = $null ) { msg = $+ $nick  Can't find anyone matching that. | halt }
n167=  set %khostmask $readini %path $+ clones\wpass.ini $parm2 hostmask
n168=  set %kflag $readini %path $+ clones\wpass.ini $parm2 flag
n169=  set %kpass $readini %path $+ clones\wpass.ini $parm2 password
n170=  set %kinfo $readini %path $+ clones\wpass.ini $parm2 info
n171=  set %kemail $readini %path $+ clones\wpass.ini $parm2 email
n172=  set %knote %path $+ notes\ $+ $parm2 $+ .txt
n173=  if ( $lof(%knote) = 0 || $exists(%knote) = $false ) { set %note 0 } | else { set %note $lines(%knote) }
n174=  if ( %kpass != $null && %kpass != none ) { set %kwpass Yes } | else { set %kwpass No }
n175=  msg =$nick HANDLE, PASS, FLAG, NOTES
n176=  msg =$nick ----------------------------------------------
n177=  msg =$nick $parm2 á %kwpass ááá %kflag ááá %note
n178=  msg =$nick ááááááááá %khostmask
n179=  if ( %kinfo != $null && %kinfo != none ) { msg =$nick ááááááááááINFO: %kinfo }
n180=  if ( %kemail != $null && %kemail != none ) { msg =$nick ááááááááááEMAIL: %kemail }
n181=  unset %khostmask %kinfo %kemail %kwpass %kpass %kflag %note %knote
n182=}
n183=/chinfo {
n184=  writeini %path $+ clones\wpass.ini $parm2 info $parm3*
n185=  if ( $parm3* = none ) { msg =$nick Wiped info for $parm2 }
n186=  else { msg =$nick New info for $parm2 : $parm3* }
n187=}
n188=/chemail {
n189=  writeini %path $+ clones\wpass.ini $parm2 email $parm3*
n190=  if ( $parm3* = none ) { msg =$nick Wiped email address for $parm2 }
n191=  else { msg =$nick Changed email for $parm2 : $parm3* }
n192=}
n193=/chpass {
n194=  writeini %path $+ clones\wpass.ini $parm2 password $parm3
n195=  if ( $parm3 = none ) { msg =$nick Wiped password for $parm2 }
n196=  else {  msg =$nick Changed password. }
n197=}
n198=/sflag {
n199=  set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5))
n200=  set %flag $readini %path $+ clones\wpass.ini %tnick flag
n201=}
n202=/secho {
n203=  set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5))
n204=  set %echo $readini %path $+ clones\wpass.ini %tnick echo
n205=}
n206=/spass {
n207=  set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5))
n208=  set %pass $readini %path $+ clones\wpass.ini %tnick password
n209=}
n210=/fhelp {
n211=  set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5))
n212=  set %flag $readini %path $+ clones\wpass.ini %tnick flag
n213=  if ( %flag = p ) set %fhelp pparty
n214=  if ( %flag = v ) set %fhelp pparty
n215=  if ( %flag = d ) set %fhelp pparty
n216=  if ( %flag = s ) set %fhelp pparty
n217=  if ( %flag = o ) set %fhelp pop
n218=  if ( %flag = m ) set %fhelp pmaster
n219=  if ( %flag = g ) set %fhelp pgod
n220=}
n221=/cstatus {
n222=  msg =$nick I am $me, running %ver $+ :
n223=  msg =$nick Channels: $dde warbot channels ""
n224=  set %schan $chan(0) | ontime
n225=  set %k 0
n226=  :start
n227=  if ( %k >= %schan ) { goto cont }
n228=  inc %k
n229=  msg =$nick $chan(%k) : $nick(0,$chan(%k)) members, enforcing " $+ $chan(%k).mode $+ "
n230=  goto start
n231=  :cont
n232=  msg =$nick Server: $server
n233=  msg =$nick Ip: $ip Host: $host
n234=  msg =$nick Online: %hours hour(s) %minutes minute(s) %seconds second(s)
n235=  halt
n236=}
n237=/signon set %hours 0 | set %minutes 0 | set %seconds 0
n238=/online {
n239=  inc %minutes
n240=  if ( %minutes = 60 ) { set %minutes 0 | inc %hours }
n241=  if ( %hours = 24 ) { set %hours 0 | inc %days }
n242=}
n243=/iinfo {
n244=  if ( $nick isin %cinfo ) { msg $chan %cinfo }
n245=  else { msg $chan $chr(91) $+ $nick $+ $chr(93) %cinfo }
n246=}
n247=/why {
n248=  notice $nick Possible reasons why you are getting errors:
n249=  notice $nick 1. You are not on any channels I am
n250=  notice $nick 2. You have not "spoken" on any channels I am on
n251=  notice $nick 3. You are not in my userlist
n252=  notice $nick 4. You are not idented.
n253=}
n254=/cset {
n255=  if ( $parm2 = $null ) { msg =$nick What?  Try '.help' | halt } | if ( $parm3 = 1 ) { set %switch ON } | if ( $parm3 = 0 ) { set %switch OFF } | if ( $parm3 = regular ) { set %switch Regular } | if ( $parm3 = premium ) { set %switch Premium }
n256=  if ( $parm2 =áautoop ) { if ( $parm3 = 1 || $parm3 = 0 ) { set %autoop %switch } | else { msg =$nick AutoOp: %autoop } | halt }
n257=  if ( $parm2 =áservermodes )  { if ( $parm3 = 1 ) { enable #servermodes | set %servermodes %switch } | else if ( $parm3 = 0 ) { disabled #servermodes | set %servermodes %switch } | else { msg =$nick Servermodes: %servermodes } | halt }
n258=  if ( $parm2 =áfriend-prot ) { if ( $parm3 = 1 || $parm3 = 0 || $parm3 = regular || $parm3 = premium ) { set %fprot %switch } | else { msg =$nick Friend Protection: %fprot } | halt }
n259=  if ( $parm2 = autogreet ) { if ( $parm3 = 1 || $parm3 = 0 ) { set %greet %switch } | else { msg =$nick AutoGreeT: %greet } | halt }
n260=  if ( $parm2 = infoline ) { if ( $parm3 = 1 || $parm3 = 0 ) { set %info %switch } | else { msg =$nick InfoLine: %info } | halt }
n261=  if ( $parm2 = no-mode ) { if ( $parm3 = 1 ) { enable #prot | set %prot %switch } | else if ( $parm3 = 0 ) { disabled #prot | set %prot %switch } | else { msg =$nick No Mode, Topic, Op: %prot } | halt }
n262=  if ( $parm2 = 8ball ) { set %8ball %switch | if ( $parm3 = 1 ) { enable #8ball } | else if ( $parm3 = 0 ) { disabled #8ball } | else { msg =$nick 8Ball: %8ball' } | halt }
n263=  if ( $parm2 = seen ) { set %seen %switch | if ( $parm3 = 1 ) { enable #seen } | else if ( $parm3 = 0 ) { disabled #seen } | else { msg =$nick Seen: %seen } | halt }
n264=  if ( $parm2 = wall ) { set %wall %switch | if ( $parm3 = 1 ) { enable #wall } | else if ( $parm3 = 0 ) { disabled #wall } | else { msg =$nick Graffiti Wall: %wall } | halt }
n265=  if ( $parm2 = color-kick ) { set %color %switch | if ( $parm3 = 1 ) { enable #color } | else if ( $parm3 = 0 ) { disabled #color } | else { msg =$nick Color Kick: %color } | halt }
n266=  if ( $parm2 = swear-kick ) { set %swear %switch | if ( $parm3 = 1 ) { enable #swear } | else if ( $parm3 = 0 ) { disabled #swear } | else { msg =$nick Swear Kick: %swear } | halt }
n267=  if ( $parm2 = bitch ) { if ( $parm3 = 1 || $parm3 = 0 ) { set %bitch %switch } | else { msg =$nick Bitch Mode: %bitch } | halt }
n268=  if ( $parm2 = kick-on-baná) { if ( $parm3 = 1 || $parm3 = 0 ) { set %kob %switch } | else { Kick On Ban: %kob } | halt }
n269=  if ( $parm2 = flood-join ) { if ( $parm3 = 1 || $parm3 = 0 ) { set %massjoin %switch } | else { msg =$nick Massjoinn Protection: %massjoin } | halt }
n270=  if ( $parm2 = flood-nick ) { if ( $parm3 = 1 || $parm3 = 0 ) { set %nickf %switch } | else { msg =$nick Nick Flood Protection: %nickf } | halt }
n271=  if ( $parm2 = flood-invite ) { if ( $parm3 = 1 || $parm3 = 0 ) { set %invitef %switch } | else { msg =$nick Invite Flood Protection: %invitef } | halt }
n272=  if ( $parm2 = flood-privmsg ) { if ( $parm3 = 1 || $parm3 = 0 ) { set %msgflood %switch } | else { msg =$nick Private MSG Protection: %msgflood } | halt }
n273=  if ( $parm2 = flood-text ) { if ( $parm3 = 1 || $parm3 = 0 ) { set %textf %switch } | else { msg =$nick Text Flood Protection: %textf } | halt }
n274=  else { msg =$nick What?  Try '.help' | halt }
n275=}